home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -in_the_mag- / banging_the_metal / qdos / qdos4amiga1 / qldisk.unzip < prev    next >
AmigaDOS Script File  |  2000-01-03  |  857b  |  50 lines
  1. .key opt1
  2. .def opt1 "QDOS4amiga3.zip"
  3. .bra {
  4. .ket }
  5.  
  6. FailAt 21
  7.  
  8. Echo "This script copies the contents of an"
  9. Echo "ZIP archive onto a QDOS (QL) disk."
  10.  
  11. Assign >NIL: FD0: EXISTS
  12.  
  13. If WARN
  14.  Echo "Please:"
  15.  Echo "   1) Mount the QLfilesystem"
  16.  Echo "   2) Copy the file QDOS4amiga3.zip to RAM:"
  17.  Echo "      (or SHIFT-SELECT a different lha archive)"
  18.  Echo "   3) Try again."
  19.  Wait 5
  20. Else
  21.  
  22.  If EXISTS ram:{opt1}
  23.   QLFormat -u0 -mBUSY -a
  24.   DiskChange FD0:
  25.   UNZIP -j -N ram:{opt1} -d FD0:
  26.   Skip NAMEIT
  27.  Else
  28.   If EXISTS {opt1}
  29.    QLFormat -u0 -mBUSY -a
  30.    DiskChange FD0:
  31.    UNZIP -j -N {opt1} -d FD0:
  32.    Skip NAMEIT
  33.   Else
  34.    Echo "Please:"
  35.    Echo "   1) Copy the file {opt1} to RAM:"
  36.    Echo "      (or SHIFT-SELECT a different zip archive)"
  37.    Echo "   2) Try again."
  38.    Wait 5
  39.    Skip DONE
  40.   EndIf
  41.  EndIf
  42.  
  43. Lab NAMEIT
  44.  
  45.  Relabel FD0: QLdisk
  46.  
  47. EndIf
  48.  
  49. Lab DONE
  50.